100 Plus Great Games 2/100PLUSV2.BIN/games/TroyReturns.dxr/00013_Editor BG.ls

Text File | 2002-01-31 | 624 b | 29 lines

global editmode, playerViewpoint, screenTileSize, terrainData_Type, textureBrush, mouseinput

on mouseUp
  mouseinput = 0
end

on mouseDown
  mouseinput = 1
  editmode = #Terrain
  case editmode of
    #Terrain:
      clickTile = ((playerViewpoint + the mouseLoc) / screenTileSize) + 1
      terrainData_Type[clickTile[2]][clickTile[1]] = textureBrush
  end case
end

on mouseLeave
  mouseinput = 0
end

on mouseWithin
  global coLoc
  clickTile = ((playerViewpoint + the mouseLoc) / screenTileSize) + 1
  if coLoc <> clickTile then
    member("Tile Coordinates").text = string(clickTile)
    coLoc = clickTile
  end if
end